home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Ver Disp 8.xpl < prev    next >
Text File  |  2004-04-27  |  2KB  |  57 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="3"
  4. "UIPATH"="Information\Core"
  5. "NAME"="Windows Product Type"
  6. "VERSION"="1.18"
  7. "OSVERSION"="0101011"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Server"
  10. "TEXT 2"="Pro/Workstation"
  11. "TEXT 3"="Advanced Server"
  12. "DESCRIPTION 1"="This plug-in displays the type of Win2k or WinNT you are using."
  13. "DESCRIPTION 2"="You can't change anything!!!"
  14. "DESCRIPTION 3"="See http://www.win2000mag.com/Articles/Index.cfm?ArticleID=2816 or http://support.microsoft.com/support/kb/articles/Q124/3/05.asp Windows NT Server as a domain controller will report Advanced Server. MSKB Q124305 explains this (link above).  Note that Windows 2000 Server and Windows 2000 Advanced Server will both be detected as "Server".  WinXP Home Edition will be detected as "Workstation/Pro"."
  15. "AUTHOR"="Xteq Systems (CptSiskoX)"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="See: http://www.win2000mag.com/Articles/Index.cfm?ArticleID=2816 "
  19. "COMMENT 2"=" "
  20.  
  21.  
  22.  
  23. sV1="HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductType\"
  24.     sV1_C="ServerNT"
  25. sV2="HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductType\"
  26. sV1_C="WinNT"
  27. sV3="HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductType\"
  28. sV1_C="LANManNT"
  29.  
  30. Sub Plugin_Initialize 
  31. sT="No"
  32. s=RegReadValue(sv1)
  33. If s="ServerNT" then sT="Detected"  
  34. Call SetUIElement(1,sT)
  35.  
  36. sT="No"
  37. s=RegReadValue(sv2)
  38. If s="WinNT" then sT="Detected"  
  39. Call SetUIElement(2,sT)
  40.  
  41. sT="No"
  42. s=RegReadValue(sv3)
  43. If s="LANManNT" then sT="Detected"  
  44. Call SetUIElement(3,sT)
  45.  
  46. Call Disable 'user can't change anything!
  47. End Sub
  48.  
  49. Sub Plugin_CheckData(ElementIndex)
  50. End Sub
  51.  
  52. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  53. End Sub
  54.  
  55. Sub Plugin_Terminate 
  56. End Sub
  57.